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-- file Pass4Xb.Mesa 

-- last written by Satterthwaite, August 2, 1978 10:33 AM 

DIRECTORY 

AltoDefs: FROM "altodefs", 
ComData: FROM "comdata". 
ErrorDefs: FROM "errordefs", 
InlineDefs: FROM "inl inedef s" . 
LitDefs: FROM "litdefs". 
P4Defs: FROM "p4defs". 
Pass4: FROM "pass4", 
SymDefs: FROM "symdefs", 
SymSegDefs: FROM "symsegdef s" , 
SymTabDefs: FROM "symtabdef s" . 
TableDefs: FROM "tabledefs", 
TreeDefs: FROM "treedefs"; 

Pass4Xb: PROGRAM 
IMPORTS 

ErrorDefs, LitDefs, P4Defs, SymSegDefs, SymTabDefs, TreeDefs. 
dataPtr: ComData, passPtr: Pass4 
EXPORTS P4Defs » 
BEGIN 
OPEN SymTabDefs, TreeDefs; 

-- pervasive definitions from SymDefs 

ISEIndex: TYPE = SymDefs . ISEIndex; 
CSEIndex: TYPE = SymDefs .CSEIndex; 

tb; TableDefs. TableBase; -- tree base address (local copy) 

seb: TableDefs. TableBase; -- se table base address (local copy) 

ctxb: TableDefs. TableBase; -- context table base address (local copy) 

bb: TableDefs. TableBase; -- body table base address (local copy) 

ExpBNotify: PUBLIC Tabl eDef s . TableNotif ier » 

BEGIN -- called by allocator whenever table area is repacked 

tb <- base[treetype]; 

seb <- base[SymDef s .setype]; ctxb ^ base[SymDefs.ctxtype]; 

bb *- base[SymDefs. body type]; RETURN 

END; 

-- respresentations (temporary) 

Repr: TYPE = P4Defs.Repr; 
none: Repr = P4Defs.none; 
signed: Repr = P4Defs . signed; 
unsigned: Repr = P4Defs .unsigned; 
both: Repr * P4Defs.both; 
other: Repr « P4Defs .other ; 

MixedRepresentation: PUBLIC SIGNAL = CODE; 

CommonRep: PROCEDURE [Repr, Repr] RETURNS [Repr] » 
LOOPHOLE[InlineDefs.BITAND]; 

Compare: PUBLIC PROCEDURE [1, r: WORD, rep: Repr] RETURNS [INTEGER] » 
BEGIN 

RETURN [IF 1 " r 
THEN 
ELSE 

IF (IF CommonRep[rep , unsigned] # none 
THEN 1 > r 

ELSE L00PH0LE[1. INTEGER] > LOOPHOLE[r, INTEGER]) 
THEN 1 
ELSE -1] 
END; 

-- intermediate result bookkeeping 

ValueDescriptor: TYPE » RECORD[ 

bias: INTEGER, -- bias in representation (scalars only) 

rep: Repr]; -- signed/unsigned (scalars only) 
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VStackLimit: INTEGER - 32; 

vStack: ARRAY [0 .. VStackLimit] OF ValueDescriptor; 

vl: INTEGER; -- index into vStack 

VStackOverflow: SIGNAL - CODE; 

VPush: PUBLIC PROCEDURE [bias: INTEGER, rep: Repr] - 
BEGIN 

IF (vl <- vI+1) > VStackLimit THEN ERROR VStackOverflow; 
vStack[vI] ♦- ValueDescriptor[bias :bias, rep:rep]; 
RETURN 
END; 

VPop: PUBLIC PROCEDURE ■ 
BEGIN 

IF vl < THEN ERROR; 
vl 4- vI-1; RETURN 
END; 

VBias: PUBLIC PROCEDURE RETURNS [INTEGER] ■ 
BEGIN 

RETURN [vStack[vI].bias] 
END; 

VRep: PUBLIC PROCEDURE RETURNS [Repr] - 
BEGIN 

RETURN [vStack[vI].rep] 
END; 



Pass4XInit: PUBLIC PROCEDURE ■ 
BEGIN 

vl <- -1; RETURN 
END; 

OperandType: PUBLIC PROCEDURE [t: TreeLink] RETURNS [CSEIndex] ■ 
BEGIN 
RETURN [WITH t SELECT FROM 

symbol => UnderType[(seb+index) . idtype], 
literal => 

IF info.litTag = string THEN dataPtr . typeSTRING ELSE dataPtr. typelNTEGER, 
subtree ■> 

IF t = empty THEN passPtr . impl icitType ELSE { tb+index) . info, 
ENDCASE => SymDefs.typeANY] 
END; 

ForceType: PUBLIC PROCEDURE [t: TreeLink. type: CSEIndex] RETURNS [TreeLink] « 
BEGIN 

mlpush[t] ; 

IF '-testtree[t, mwconst] THEN pushtree[cast, 1]; 
setinfo[type]; RETURN [mlpop[]] 
END; 

-- literals 

TreeLiteral: PUBLIC PROCEDURE [t: TreeLink] RETURNS [BOOLEAN] « 
BEGIN 

node: Treelndex; 
DO 
WITH t SELECT FROM 

literal »> RETURN[info. 1 itTag « word]; 
subtree »> 

BEGIN node *■ index; 
SELECT (tb+node).name FROM 
cast «> t <- ( tb+node) .sonl; 
ENDCASE •> RETURN [FALSE]; 
END; 
ENDCASE -> RETURN[FALSE] 
ENDLOOP 
END; 

TreeLiteralValue: PUBLIC PROCEDURE [t: TreeLink] RETURNS [WORD] « 
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BEGIN 

node: Treelndex; 
DO 

WITH e:t SELECT FROM 
literal ■> 

WITH e.info SELECT FROM 
word »> RETURN [LitDef s .Litera1Value[index]]; 
ENDCASE -> EXIT; 
subtree ■> 

BEGIN node *- e. index; 
SELECT (tb+node).name FROM 
cast "> t <- (tb+node) .sonl; 
ENDCASE -> EXIT; 
END; 
ENDCASE -> EXIT 
ENDLOOP; 
ERROR; 
END; 

MakeTreeLiteral: PUBLIC PROCEDURE [val : WORD] RETURNS [TreeLink] ■ 
BEGIN 

RETURN [[1iteral[info: [word[index: LitDef s. FindLiteral [val]]]]]] 
END; 

StructuredLiteral: PROCEDURE [t: TreeLink] RETURNS [BOOLEAN] ■ 
BEGIN 

node: Treelndex; 
DO 
WITH t SELECT FROM 

literal => RETURN[info. 1 itTag - word]; 
subtree => 

BEGIN node <- index; 
SELECT (tb+node) .name FROM 
mwconst «> RETURN [TRUE]; 
cast => t ♦- (tb+node) , sonl; 
ENDCASE => RETURN [FALSE]; 
END; 
ENDCASE =»> RETURN[FALSE] 
ENDLOOP 
END; 

MakeStructuredLiteral: PUBLIC PROCEDURE [val: WORD, type: CSEIndex] RETURNS [t: TreeLink] 
BEGIN 

t ♦- MakeTreeLiteral[val]; 
SELECT (seb+type) .typetag FROM 

basic, enumerated, subrange, mode «> NULL; 

ENDCASE => t <- ForceType[t, type]; 
RETURN 
END; 

LiteralRep: PROCEDURE [val: WORD, rep: Repr] RETURNS [Repr] » 
BEGIN 

RETURN [IF rep = other OR rep « none 
THEN rep 
ELSE IF val > 77777B 

THEN IF rep = both THEN unsigned ELSE rep 
ELSE both] 
END; 

-- operators 

Exp: PUBLIC PROCEDURE [exp: TreeLink, target: Repr] RETURNS [val: TreeLink] « 
BEGIN 

sei: ISEIndex; 
type: CSEIndex; 
rep: Repr; 
node: Treelndex; 
WITH expr: exp SELECT FROM 

symbol «> 

BEGIN sei <- expr. index; 
IF ~(seb+sei ) .mark4 

THEN P4Defs.DeclItem[TreeLink[subtree[index: (seb+sei) . idvalue]]]; 
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type <- UnderType[(seb+sei) . idtype]; rep ♦■ P4Defs.RepForType[type]; 
IF '-(seb+sei) .constant 
THEN val ♦• expr 
ELSE 

SELECT XferMode[type] FROM 
procedure, signal, error ■> 
val ♦- IF ConstantId[sei] AND ~(seb+sei ) .extended 
THEN MakeStructuredLitera1[(seb+sei) . idvalue, type] 
ELSE expr; 
ENDCASE ■> 

IF (seb+sei) .extended 
THEN 
BEGIN 

val ♦- IdentityMap[SymSegDef s.FindExtension[sei3]; 
WITH val SELECT FROM 

subtree ■> (tb+index) . info ♦-UnderType[(seb+sei) . idtype]; 
ENDCASE; 
END 
ELSE 

BEGIN rep ^ Litera1Rep[(seb+sei) . idvalue, rep]; 
val ♦- MakeStructuredLiteral [(seb+sei) . idvalue, type]; 
END; 
VPush[P4Defs.BiasForType[type], rep]; 
END; 

literal ■> 
BEGIN 
WITH expr. info SELECT FROM 

word »> rep ♦- LiteralRep[LitDef s .LiteralValue[index] , unsigned]; 
string «> 

BEGIN LitDef s .StringLiteralReference[index] ; rep <- unsigned END; 
ENDCASE => rep ♦- none; 
VPush[0, rep]; val <- expr; 
END; 

subtree °> 

IF expr =« empty 
THEN 

BEGIN val <- empty; 

\/Push[passPtr. impl icitBias, passPtr. impl icitRep]; 
END 
ELSE 

BEGIN node <- expr. index; 
SELECT (tb+node).name FROM 

dot »> 

BEGIN OPEN (tb+node); 

sonl ^ NeutralExp[sonl]; son2 <- Exp[son2, none]; val <- expr; 

END; 

dollar «> val ♦- Donar[node]; 

cdot -> 
BEGIN 

val ♦- Exp[{ tb+node) .son2, none]; 
(tb+node) . son2 ^ empty; f reenode[node]; 
END; 

uparrow ■> 

BEGIN OPEN (tb+node); 

sonl <- NeutralExp[sonl]; 

VPush[P4Defs.BiasForType[info], P4Def s . RepForType[info]] ; 

val <- expr; 

END; 

call, portcall , signal, error, start, Join «> 

val ♦- P40efs.Can[node]; 
index, dindex «> val «- Index[node]; 

seqindex »> 

BEGIN OPEN (tb+node); 

sonl <- NeutralExp[sonl]; son2 ♦- NeutralExp[son2]; 

\/Push[0, both]; val ♦- expr; 

END; 

reloc ■> 
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BEGIN OPEN (tb+node); 

sonl ♦- N8utra1Exp[sonl]; son2 <- Neutra1Exp[son2] ; 

VPush[0, unsigned]; val *- expr; 

END; 

constructx -> val ♦• P4Defs.Construct[node]; 
unionx ■> val <- P4Def s .Union[node] ; 
rowconsx »> val ♦■ P4D9fs.RowConstruct[nod8]; 

uminus ■> 

BEGIN OPEN (tb+node); 

IF ~TreeLiteral[sonl <- Exp[sonl, signed]] 
THEN val ♦■ expr 
ELSE 
BEGIN 

val <r MakeTreeLiteral[-TreeLiteralValue[sonl]]; 
f reenode[node]; 
END; 
vStack[vI].bias <- -vStacl<[vI] .bias; 
SELECT vStack[vI].rep FROM 

unsigned, both ■> vStack[vI] , rep <- signed; 
none «> 
BEGIN 

E r rorDefs. Warn ingTree[mixed Represent at ion, val]; 
vStack[vI].rep *- signed; 
END; 
ENDCASE => NULL; 
IF -attrl THEN attr2 ♦- FALSE; 
END; 

abs ■> 

BEGIN OPEN (tb+node); 
sonl *- RValue[sonl, 0, signed]; 
SELECT vStack[vI].rep FROM 
unsigned, both => 
BEGIN 

Error Defs .WarningTree[unsignedCompare, expr]; 
val *- sonl; sonl <- empty; f reenode[node]; 
END; 
none -> 
BEGIN 

val ^ expr; 

ErrorDef s .errortree[mixedRepresentation, val] ; 
vStack[vI] . rep <- both; 
END; 
ENDCASE «> 
BEGIN 
IF --attrl THEN 

BEGIN attr2 *- FALSE; vStack[vI] . rep ^ both END; 
IF ~TreeLiteral[sonl] 
THEN val <- expr 
ELSE 
BEGIN 
val ♦- MakeTreeLiteral[ 

ABS[LOOPHOLE[TreeLiteralValue[sonl], INTEGER]]]; 
f reenode[node]; 
END; 
END; 
END; 

plus, minus »> val <- AddOp[node, target]; 

times «> val *- Mult[node, target]; 

div, mod => val ^ DivMod[node, target]; 

relE, relN, relL, relGE, reIG, relLE => val <- RelOp[node]; 

in, notin «> val <- In[node]; 

not ■> 

BEGIN OPEN (tb+node); 
IF ~TreeLit8ral[sonl ♦- Exp[sonl, none]] 
THEN val «- expr 
ELSE 
BEGIN 

val <r IF sonl ff passPtr. tFALSE 
THEN passPtr. tFALSE 
ELSE passPtr. tTRUE; 
f reenode[node]; 
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END; 
END; 

or, and ■> val ^ BoolOp[node]; 
ifexp ■> val <- IfExp[nod8, target]; 
caseexp ■> val <- CaseExp[node, target]; 
bindexp ■> val «- BindExp[node, target]; 
assignx ■> val <- P4Def s.Assignnientfnode]; 
min, max ■> val *- MinMax[node, target]; 
addr »> val ^ Addr[node]; 

base "> 

BEGIN OPEN (tb+node); 

sonl ♦- Exp[sonl, none]; VPop[]; 

VPush[0, unsigned]; val <- expr; 

END; 

length ■> 

BEGIN OPEN (tb+node); 
type: CSEIndex; 
sonl ^ Exp[sonl, none]; 
type ^ OperandType[sonl]; VPop[]; 
WITH (seb+type) SELECT FROM 
array ■> 
BEGIN 

val ^ MakeTreeLiteral[Cardinality[indextype]]; 
freenode[node]; 
END; 
ENDCASE »> val ^ expr; 
VPush[0, both]; 
END; 

arraydesc »> 

BEGIN OPEN (tb+node); 
subNode: Treelndex « GetNode[sonl]; 
(tb+subNode).sonl <- NeutralExp[(tb+subNode) .sonl]; 
(tb+subNode) . son2 <- Neutral Exp[(tb+subNode) .son2]; 
IF (tb+subNode) .son3 empty 

THEN P4Defs.TypeExp[typeExp:(tb+subNode) .son3, body:FALSE]; 
VPush[0, other]; val <- expr; 
END; 

mwconst »> 
BEGIN 

val ♦- expr; \/Push[0, other]; 
END; 

clit «> 
BEGIN 

val ♦- (tb+node) .sonl; f reenode[node]; VPush[0, both]; 
END; 

Hit «> 
BEGIN 

IF (bb+dataPtr.bodylndex). level > SymDefs.lG THEN 
WITH e: (tb+node) . sonl SELECT FROM 
literal «> 

WITH e.info SELECT FROM 
string «> 

index <- LitDefs. FindLocalStringLiteral[index] ; 
ENDCASE; 
ENDCASE; 
val <- Exp[( tb+node) . sonl , none]; 
(tb+node) .sonl *- empty; f reenode[node] ; 
END; 

new «> val ^ P4Def s .New[node]; 
fork «> val <- P4Defs . Fork[node]; 

memory, register »> 
BEGIN OPEN (tb+node); 

sonl <- NeutralExp[sonl]; \/Push[0, both+other]; val ^ expr; 
END; 

lengthen «> val ♦- Lengthen[node]; 
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float ■> 

BEGIN OPEN (tb+node); 

sonl *- Neutra1Exp[sonl]; \/Push[0, other]; val <- expr; 

END; 

loophole -> val <- Loophole[node] ; 

cast ■> 

BEGIN OPEN (tb+node); 

rep: Repr = P4Def s .RepForType[info]; 

sonl ^ Exp[sonl, rep]; 

vStack[vI].rep ♦- rep; 

val ^ expr; 

END; 

openexp »> 

BEGIN OPEN (tb+node); 
IF attrl 

THEN val ♦- sonl 
ELSE 

BEGIN sonl ^ NeutralExp[sonl]; 
IF TreeDef s . shared[sonl] 

THEN sonl ♦- ForceType[sonl , OperandType[sonl]]; 
setshared[sonl. TRUE]; attrl <r TRUE; 
val <- expr; 
END; 
VPush[0, other]; 
END; 

size ■> 

BEGIN OPEN (tb+node); 

P4Def s. TypeExp[typeExp:sonl , body : FALSE]; 

val ^ MakeTreeLiteral [P4Def s .WordsForType[ 

UnderType[P4Def s .TypeForTree[sonl]]]]; 
freenode[node]; VPush[0, both]; 
END; 

first, last «> val ♦- EndPoint[node] ; 

ENDCASE -> 

BEGIN ErrorDef s .error[un implemented]; 

VPush[0» none]; val ^ expr; 

END; 

END; 

ENDCASE -> ERROR; 
RETURN 
END; 

NeutralExp: PUBLIC PROCEDURE [exp: TreeLink] RETURNS [val: TreeLink] > 
BEGIN 

val ♦- RValue[exp. 0, none]; VPop[]: RETURN 
END; 

Dollar: PROCEDURE [node: Treelndex] RETURNS [val: TreeLink] ■ 
BEGIN OPEN (tb+node); 
sei: ISEIndex; 

sonl <- Exp[sonl, none]; VPop[]; son2 *- Exp[son2, none]; 
IF '-StructuredLiteral[sonl] 

THEN val <- TreeLink[subtree[index: node]] 
ELSE 

WITH son2 SELECT FROM 
symbol =•> 

BEGIN sei ♦- index; 
val ♦- P4Def s .UnpackField[sonl. sei]; 
f reenode[node]: 
END; 
ENDCASE «> ERROR; 
RETURN 
END; 



Index: PROCEDURE [node: Treelndex] RETURNS [val: TreeLink] 
BEGIN OPEN (tb+node); 
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aType, iType, cType: CSEIndex; 
k: CARDINAL; 

sonl <r Exp[sonl, none]; VPop[]; 
aType ^ OperanclType[sonl]; 
DO 

WITH (seb+aType) SELECT FROM 
array ■> 
BEGIN 

iType <- UnclerType[indextype]; cType <- UnderType[componenttype]; EXIT 
END; 
arraydesc ■> aType ^ UnderType[describedType]; 
long ■> aType <- UnderType[rangetype]; 
ENDCASE ■> ERROR; 
ENDLOOP; 
IF (k <- P4Defs.WordsForType[cType]) # 1 
THEN 

BEGIN mlpush[son2]; ml push[MakeTreeLitera1 [k]]; 

pushtree[times. 2]; setinf o[dataPtr . typelNTEGER] ; * setattr[l, FALSE]; 
son2 ♦- mlpop[]; 
END; 
son2 ♦- RValue[son2, k*P4Def s .BiasForType[iType], 

P4Defs. Targe tRep[P4Defs. Rep ForType[ iType]]]; 
VPop[]; VPush[P4Defs.BiasForType[cType], P4Def s .RepForType[cType]] ; 
IF '-(TreeLiteral[son2] AND StructuredLiteral [sonl]) 
THEN val <- TreeLink[subtree[index: node]] 
ELSE 
BEGIN 

val ^ P4Defs.UnpackElement[sonl, TreeLiteral\/alue[son2]]; 
f reenode[node]; 
END; 
RETURN 
END; 



AddOp: PROCEDURE [node: Treelndex, target: Repr] RETURNS [val: TreeLink] » 
BEGIN OPEN (tb+node); 
op: NodeName = (tb+node) .name; 
type: CSEIndex « (tb+node) . info; 
bias, shift: INTEGER; 
rep: Repr; 

sonl <- Exp[sonl, target]; son2 <- Exp[son2, target]; 
val <- TreeLink[subtree[index: node]]; 
bias <- vStack[vI-l].bias; shift ♦- vStack[vI] .bias; 
rep ^ CommonRep[vStack[vI-l] . rep, vStack[vI] . rep]; 
IF rep = none THEN rep *■ target; 

IF -attrl THEN attr2 <- (IF rep = both THEN target ELSE rep) » unsigned; 
SELECT TRUE FROM 

TreeLiteral[son2] »> 
BEGIN val ^ sonl; 

shift <- shift + TreeLiteral\/alue[son2]; 
sonl ♦- empty; f reenode[node]; 
END; 
(op = plus AND TreeLiteral[sonl]) «> 
BEGIN val <- son2; 

shift <- shift + TreeLiteralValue[sonl]; 
son2 *- empty; freenode[node]; 
END; 
ENDCASE; 
bias ^ bias + (IF op - plus THEN shift ELSE -shift); 
VPop[]: VPop[]; 
IF ~TreeLiteral[val] 
THEN 
BEGIN 
SELECT rep FROM 

both -> rep <- IF target « none THEN signed ELSE target; 
none -> 
BEGIN 

ErrorDef s .WarningTree[mixedRepresentation, val]; rep <- both; 
END; 
ENDCASE «> NULL; 
END; 
VPush[bias, rep]; 
IF type ff dataPtr. typelNTEGER AND OperandType[val ] ff type 

THEN val <- ForceType[val , type]; 
RETURN 
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END; 

MuU: PROCEDURE [node: Treelndex, target: Repr] RETURNS [val : TreeLink] ■ 
BEGIN OPEN (tb+node); 
constl, constZ: BOOLEAN; 
rep: Repr; 
V, vl, v2: WORD; 
bias: INTEGER; 
t: TreeLink; 

constl ^ TreeLiteral[sonl ^ Exp[sonl, target]]; 
const2 ^ TreeLiteral[son2 ^ Exp[son2, target]]; 
val ^ TreeLink[subtree[index: node]]; 
IF constl OR '-const2 

THEN sonl ^ AdjustBias[sonl , -vStack[vI-l].bias]; 
IF -constl OR const2 

THEN son2 <- AdjustBias[son2, -vStack[vI] .bias]; 
rep <- CommonRep[vStack[vI-l].rep, vStack[vI] . rep]; 
IF constl THEN vl ^ TreeLi teralValue[sonl]; 
IF const2 THEN v2 ^ TreeLiteralValue[son2] ; 
IF constl AND const2 
THEN 

BEGIN bias ^0; v <- vl*v2; 
val <- MakeTreeLiteral[v]; freenode[node]; 
rep <- LiteralRep[v, rep]; 
END 
ELSE 
BEGIN 
SELECT rep FROM 

both »> rep <- IF target ■ none THEN signed ELSE target; 
none => IF target # none THEN rep <- target; 
ENDCASE »> NULL; 
IF ~attrl THEN attr2 <- rep » unsigned; 
bias <r SELECT TRUE FROM 

constl «> vl*vStack[vI].bias, 
const2 => vStack[vI-l].bias*v2, 
ENDCASE => 0; 
IF constl -- AND '-const2 

THEN BEGIN t <- son2; son2 ^ sonl; sonl <- t END; 
IF constl OR const2 
THEN 

SELECT (IF constl THEN vl ELSE v2) FROM 

"> 
BEGIN 

val <- son2; son2 ^ empty; f reenode[node]; rep <- both; 
END; 

1 => 
BEGIN 

val ♦- sonl; sonl ^ empty; f reenode[node]; 
rep <- vStack[IF constl THEN vl ELSE vl-l].rep; 
END; 
-1 «> 

BEGIN mlpush[sonl]; sonl <- empty; f reenode[node]; 
pushtree[uminus , 1]; setinfo[dataPtr. typelNTEGER]; 
setattr[l, FALSE]; setattr[2. FALSE]; 
val <- mlpop[]; 
END; 
ENDCASE; 
IF rep » none 
THEN 
BEGIN 

ErrorDefs .WarningTree[mixedRepresentation, val]; rep <- both; 
END; 
END; 
VPop[]; VPop[]; VPush[bias, rep]; 
RETURN 
END; 

DivMod: PROCEDURE [node: Treelndex, target: Repr] RETURNS [val: TreeLink] 
BEGIN OPEN (tb+node); 
V. vl, v2: WORD; 
rep: Repr; 

sonl *- RValue[sonl, 0. target]; son2 <- RValue[son2, 0, target]; 
val ♦- TreeLink[subtree[index: node]]; 
rep <- CommonRep[vStack[vI~l].rep, vStack[vI] . rep]; 
IF rep « none 
THEN 
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IF target # none 
THEN rep ♦- target 
ELSE 
BEGIN 

ErrorDefs.errortree[mixedRepresentatipn, val]; rep ♦- both; 
END; 
IF -TreeLiteralCsonl] OR -TreeLiteralCsonZ] 
THEN 
BEGIN 

IF '-attrl THEN attr2 ^ CommonRep[rep, unsigned] ff none; 
IF name •» div AND TreeLiteral [son2] 
THEN 

SELECT TreeLitera1Va1ue[son2] FROM 
■ 1 -> 

BEGIN val ♦- sonl; sonl ♦- empty; f reenode[node] ; END; 
>-2 ■> IF rep ■ unsigned THEN rep ^ both; 
ENDCASE; 
END 
ELSE 
BEGIN 

vl <- TreeLiteralValue[sonl]; v2 *- TreeLiteralVa1ue[son2]; 
IF CommonRep[rep, unsigned] « none 
THEN 

SELECT name FROM 

div ■> V <- LOOPHOLE[vl, INTEGER] / L00PH0LE[v2, INTEGER]; 
mod "> V <- LOOPHOLE[vl. INTEGER] MOD L0OPHOLE[v2, INTEGER]; 
ENDCASE »> ERROR 
ELSE 

SELECT name FROM 

div ■> V ♦- vl / v2; 
mod »> V ^ vl MOD v2; 
ENDCASE => ERROR; 
val <- MakeTreeLiteral[v]; f reenode[node]; 
rep *- LiteralRep[v , rep]; 
END; 
VPop[]; VPop[]; VPush[0, rep]; RETURN 
END; 

RelOp: PROCEDURE [node: Treelndex] RETURNS [val: TreeLink] ■ 
BEGIN OPEN (tb+node); 
rep, repl, rep2: Repr; 
dl, d2: INTEGER; 
litl, lit2: BOOLEAN; 
vl, v2: WORD; 
v: INTEGER; 
uc, b: BOOLEAN: 

ZeroWarning: ARRAY NodeName [relE . . relLE] OF [0..2] - [0, 0. 2. 2, 1, 1]; 
sonl <- Exp[sonl, none]; repl ♦- vStack[vI] . rep; dl «- vStack[vI] .bias; 
son2 <- Exp[son2, none]; rep2 <- vStack[vI] . rep; d2 <- vStack[vI] .bias; 
val «- TreeLink[subtree[index : node]]; 
IF -P4Def s.ComparableRanges[OperandType[sonl] , OperandType[son2]] 

THEN ErrorDef s . errortree[sizeCl ash, son2]; 
SELECT name FROM 

relE, relN ■> uc ^ FALSE; 
ENDCASE «> 
BEGIN 

IF repl " unsigned OR rep2 « unsigned 
THEN 
BEGIN 

sonl ♦- AdJustBias[sonl, -dl]; 
son2 ^ AdjustBias[son2, -d2]; 
dl ^ d2 ^ 0; 
END; 
uc ♦- CommonRep[CommonRep[repl ,rep2] , unsigned] ff none; 
END; 
IF dl # d2 
THEN 

IF (~uc AND TreeLiteral[son2]) OR (uc AND d2 > dl) 
THEN son2 ^ AdjustBias[son2. dl-d2] 
ELSE sonl ^ AdjustBias[sonl, d2-dl]; 
rep ^ CommonRep[repl , rep2]; 
IF rep ■ none 
THEN 

SELECT name FROM 

relE, relN -> ErrorDefs.WarningTree[mixedRepresentation, val]; 
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ENDCASE ■> ErrorDefs.errortree[mixedR0pr0sentation, val]; 
IF (litl ♦- Tre0Literal[sonl]) THEN vl 4- TreeLiteralVal ue[sonl3 j 
IF (litZ ^ TreeLiteral[son2]) THEN v2 ^ TreeLiteralVal ue[son2]; 
IF CommonRep[rep, unsigned] # none 
THEN 
BEGIN 
SELECT ZeroWarning[name] FROM 

1 ■> IF litl AND vl - THEN GO TO warn; 

2 -> IF lit2 AND v2 ■ THEN GO TO warn; 
ENDCASE; 

EXITS 

warn ■> ErrorDefs.WarningTreeCunsignedCompare, val]; 
END; 



IF -litl OR '-lit2 

THEN BEGIN IF -attrl THEN attr2 
ELSE 

BEGIN 

V <- Compare[vl, v2, rep]; 

SELECT name FROM 



♦■ CommonRep[rep, signed] - none END 





relE "> 


b 


ir 


V ■ 0; 












relN ■> 


b 


♦- 


V # 0; 












relL -> 


b 


4- 


V < 0; 












relGE ■> 


b 


4- 


V >- 0; 












reIG ■> 


b 


f- 


V > 0; 












relLE -> 


b 


4- 


V <- 0; 












ENDCASE - 


> 


ERROR; 












val ♦- IF b 


THEN 


passPtr 


.tTRUE 


ELSE 


passPtr, 


.tFALSE; 




f reenode[node' 


]; 














END; 
















VPo| 


3[]; VPopf] 


; 


VPush[0, 


both]; 








RETURN 
















END 



















In: PROCEDURE [node: Treelndex] RETURNS [val: TreeLink] ■ 
BEGIN OPEN (tb+node); 
bias: INTEGER; 
rep: Repr; 
void: BOOLEAN; 
sonl <- Exp[sonl, none]; 

bias <- vStack[vI] .bias; rep ^ vStack[vI] .rep ; VPop[]; 
- IF rep » unsigned THEN 

BEGIN sonl *- AdjustBias[sonl » -bias]; bias <- END; 
void ♦- FALSE; val ♦- TreeLink[subtree[index: node]]; 
son2 ^ Range[son2, bias, rep, none 
IMixedRepresentation ■> 

BEGIN ErrorDef s .errortree[fnixedRepresentation , val]; 
Emptylnterval => BEGIN void ^ TRUE; RESUME END]; 
IF void AND sonl # empty 

THEN BEGIN f reenode[node] ; val ♦- passPtr . tFALSE END; 
VPop[]; VPush[0, both]; RETURN 
END; 



RESUME END; 



Range: PUBLIC PROCEDURE [t: TreeLink, bias: INTEGER, rep, target: Repr] 
RETURNS [val: TreeLink] » 
BEGIN 

node: Treelndex; 
IBound: INTEGER; 
val <- t; 
DO 

WITH val SELECT FROM 
symbol ■> 

BEGIN IBound <- P4Def s .BiasForType[Under rype[index]] ; 
THROUGH [1..2] 
DO 

ml push[MakeTreeLiteral[ABS[ IBound]]]; 
IF IBound < THEN pushtree[uminus , 1]; 
ENDLOOP; 
mlpush[Mak0TreeLiteral[Cardinal ity[index] - 1]]; 
pushtree[plus, 2]; setinfo[dataPtr. typelNTEGER]; 
val ♦- maketree[intCC, 2]; 
END; 
subtree ■> 

BEGIN node *- index; 
SELECT (tb+node). name FROM 
subrangeTC, cdot ■> 
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BEGIN val <- (tb+node) . son2 ; 
(tb+node) ,son2 <- empty; freenode[node]; 
END; 
IN [intOO ., intCC] ■> 
BEGIN 
IF Interva1[node, bias, target] .const 

THEN [] ^ ConstantInterva1[node3; 
rep <- CommonRep[rep, vStack[vI].rep]; 
IF rep " none THEN SIGNAL MixedRepresentation; 
IF -(tb+node).attrl 

THEN (tb+node) .attrZ ^ CommonRep[rep, signed] ■ none; 
EXIT 
END; 
ENDCASE ■> ERROR; 
END; 
ENDCASE ■> ERROR; 
ENDLOOP; 
RETURN 
END; 

Interval: PUBLIC PROCEDURE [node: Treelndex, bias: INTEGER, target: Repr] 
RETURNS [const: BOOLEAN] - 
BEGIN OPEN (tb+node); 
rep: Repr; 

sonl ^ RValue[sonl , bias, target]; 
son2 <- RValue[son2, bias, target]; 
rep *- CommonRep[vStack[vI-l] . rep, vStack[vI] . rep]; 
VPop[]; VPop[]; \/Push[bias, rep]; 

const ^ TreeLiteral[sonl] AND TreeLiteral[son2]; RETURN 
END; 

Emptylnterval: PUBLIC SIGNAL « CODE; 

Constantlnterval: PUBLIC PROCEDURE [node: Treelndex] RETURNS [origin, range: INTEGER] 
BEGIN OPEN (tb+node); 
uBound: INTEGER; 
rep: Repr; 

rep *- vStack[vI].rep; 

origin <r TreeLitera1Value[sonl] ; uBound <- TreeLiteralVa1ue[son2]; 
SELECT name FROM 
intOO, intOC «> 
BEGIN 

IF Compare[origin, uBound, rep] >« THEN SIGNAL Emptylnterval; 
origin <- origin + 1; 
sonl ♦- f reetree[sonl]; 

name ^ IF name ■ intOO THEN intCO ELSE intCC; 
sonl ♦- MakeTreeLiteral[origin]; 
END; 
ENDCASE; 
SELECT name FROM 

intCC «> IF Compare[origin, uBound, rep] > THEN SIGNAL Emptylnterval; 
intCO -> 
BEGIN 

IF Compare[origin, uBound, rep] >« THEN SIGNAL Emptylnterval; 
uBound <- uBound - 1; 
son2 *- f reetree[son2]; 

name ^ intCC; son2 ♦- MakeTreeLiteral[uBound]; 
END; 
ENDCASE ■> ERROR; 
range ♦- uBound - origin; RETURN 
END; 

BoolOp: PROCEDURE [node: Treelndex] RETURNS [val: TreeLink] - 
BEGIN OPEN (tb+node); 

b: TreeLink = IF name =« and THEN passPtr . tTRUE ELSE passPtr . tFALSE; 
sonl ^ Exp[sonl, none]; son2 <- Exp[son2, none]; 
IF TreeLitera1[sonl] 
THEN 
BEGIN 
IF sonl « b 

THEN BEGIN val ♦- son2; son2 ^ empty END 
ELSE 

val ♦- IF b - passPtr. tTRUE THEN passPtr . tFALSE ELSE passPtr . tTRUE ; 
f reenode[node]; 
END 
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ELSE 

IF -TreeLiteralCsonZ] OR son2 ff b 

THEN val ^ Tr0eLink[subtr8e[index: node]] 

ELSE BEGIN val ♦- sonl; sonl ^ empty; f r0enode[node] END; 
VPop[]; VPop[]; VPush[0, both]; 
RETURN 
END; 

IfExp: PROCEDURE [node: Treelndex, target: Repr] RETURNS [val: TreeLink] ■ 
BEGIN OPEN (tb+node); 
select: TreeLink; 
rep: Repr; 

nw: CARDINAL ■ P4Def s .WordsForType[info]; 
bias: INTEGER " P4Def s.BiasForType[info]; 
sonl <- RValue[sonl, 0, none]; VPop[]; 
IF TreeLiteral[sonl] 
THEN 
BEGIN 
IF sonl # passPtr.tFALSE 

THEN BEGIN select ♦- son2; son2 ^ empty END 
ELSE BEGIN select ♦- son3; son3 ^ empty END; 
freenode[node]; 
val <- Exp[select, target]; 
END 
ELSE 
BEGIN 

son2 ^ RValue[son2, bias, target]; rep ^ vStack[vI] . rep; VPop[]; 
IF P4Defs .WordsForType[OperandType[son2]] ff nw 

THEN ErrorOef s.errortree[sizeClash, son2]; 
son3 ^ RValue[son3, bias, target]; 
IF P4Defs .WordsForType[0perandType[son3]] # nw 

THEN ErrorDef s.errortree[sizeClash, son3]; 
rep <- CommonRep[vStack[vI] . rep, rep]; 
vStack[vI].rep ♦- IF rep » none THEN target ELSE rep; 
val ♦■ TreeLink[subtree[index: node]]; 
END; 
RETURN 
END; 

CaseExp: PROCEDURE [node: Treelndex, target: Repr] RETURNS [val: TreeLink] 
BEGIN 

type: CSEIndex ■ (tb+node) . info; 
bias: INTEGER » P4Def s .BiasForType[type] ; 
rep: Repr; 
nw: CARDINAL » P4Def s .WordsForType[type] ; 

Selection: TreeMap ■ 
BEGIN 

V <- RValue[t, bias, target]; 
rep <- CommonRep[rep, vStack[vI] .rep] ; VPop[]; 
IF P4Def s .WordsForType[OperandType[v]] ^ nw 

THEN ErrorDefs .errortree[sizeClash, v]; 
RETURN 
END; 

rep ^ both+other; 

val <- P4Def s.CaseDriver[node, Selection]; 

VPush[bias, IF rep » none THEN target ELSE rep]; 

RETURN 

END; 

BindExp: PROCEDURE [node: Treelndex, target: Repr] RETURNS [TreeLink] ■ 
BEGIN 

BoundExp: TreeMap ■ 
BEGIN 

RETURN [CaseExp[GetNode[t], target]] 
END; 

RETURN [P4Defs.Binding[node. caseexp, BoundExp]] 
END; 

MinMax: PROCEDURE [node: Treelndex, target: Repr] RETURNS [val: TreeLink] - 
BEGIN OPEN (tb+node); 
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started, const, zeroTest: BOOLEAN; 
rep: Repr; 
m: WORD; 

Item: TreeMap ■ 
BEGIN 
n: WORD; 

V ♦- RValue[t, 0, target]; 
IF '-TreeLitera1[v] 
THEN const ^ FALSE 
ELSE 

BEGIN n *- TreeLiteralVaUieCv]; IF n ■ THEN zeroTest *■ TRUE END; 
rep <- CommonRep[rep, vStack[vI] .rep] ; 
IF const 
THEN 

IF '"Stsptsd 

THEN BEGIN started ^ TRUE; m ♦- n END 
ELSE 

SELECT name FROM 

min »> m <- IF Compare[m, n, rep] <■ THEN m ELSE n; 
max «> m ♦- IF Compare[m, n, rep] >■ THEN m ELSE n; 
ENDCASE; 
VPop[]; RETURN 
END; 

IF 1ist1ength[sonl] ■ 1 

THEN BEGIN val <- Exp[sonl, target]; sonl ♦- empty; f reenode[node] END 
ELSE 
BEGIN 

started <- zeroTest *- FALSE; const ♦- TRUE; rep <- both+other; 
sonl <- update! ist[sonl, Item]; val ♦- TreeLink[subtree[index: node]]; 
IF zeroTest AND CommonRep[rep , unsigned] ff none 

THEN ErrorDef s .WarningTre0[unsignedCompare, val]; 
IF const 
THEN 

BEGIN val ♦- MakeTreeLiteral[m] ; f reenode[node]; 
rep <- LiteralRep[m, rep]; 
END 
ELSE 
BEGIN 
SELECT rep FROM 

both «> rep ♦- IF target - none THEN signed ELSE target; 
none «> 

IF target ^ none 
THEN rep *- target 
ELSE 
BEGIN 

ErrorDef s.errortree[mixedRepresentation, val]; rep <- both; 
END; 
ENDCASE => NULL; 
IF -attrl THEN attr2 <- rep - unsigned; 
END; 
\/Push[0, rep]; 
END; 
RETURN 
END; 

Addr: PROCEDURE [node: Treelndex] RETURNS [val: TreeLink] » 
BEGIN OPEN (tb+node); 
subNode: Treelndex; 
t: TreeLink; 
type: CSEIndex; 

sonl *■ Exp[sonl, none]; VPop[]; 
t <- sonl; 
DO 

WITH t SELECT FROM 
symbol ■> 
BEGIN 
IF (ctxb+(seb+index) .ctxnum) .ctxlevel ■ SymDefs.lZ 

AND LOOPHOLE[(seb+index) . idvalue, SymOef s.BitAddress].bd # 
THEN GO TO fail; ' 
GO TO pass; 
END; 
subtree "> 

BEGIN subNode *- index; 
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SELECT (tb+subNocle).name FROM 

dot, dollar ■> t ♦- (tb+subNode) .sonZ; 
index, dindex ■> 

BEGIN type ♦- NormalType[OperandType[(tb+subNode) .sonl]]; 
DO 
WITH (seb+type) SELECT FROM 

array -> IF packed THEN GO TO fail ELSE GO TO pass; 
arraydesc ■> type ^ UnderType[describedType]; 
ENDCASE »> ERROR; 
ENDLOOP; 
END; 
seqindex ■> GO TO fail ; 
uparrow, reloc, memory ■> GO TO pass; 
cast ■> t ^ (tb+subNode) .sonl; 
ENDCASE ■> ERROR; 
END; 
ENDCASE -> ERROR; 
REPEAT 

pass ■> NULL; 

fail "> ErrorDefs.errortree[nonAddressable, sonl]; 
ENDLOOP; 
val ^ TreeLink[subtree[index: node]]; 
IF testtree[sonl, dot] 
THEN 

BEGIN subNode ♦- GetNode[sonl] ; 
IF TreeLitera1[(tb+subNode) .sonl] 
THEN 

WITH ( tb+subNode). son2 SELECT FROM 
symbol «> 
BEGIN 
val <- MakeStructuredLit0ral[ 

TreeL i te ral Val ueC( tb+subNode) .sonl] + 

LOOPHOLE[(seb+index), id value, SymDef s.BitAddress].wd, 
info]; 
f reenode[node]; 
END; 
ENDCASE -> ERROR; 
END; 
VPush[0, unsigned+other]; RETURN 
END; 

Lengthen: PROCEDURE [node: Treelndex] RETURNS [val: TreeLink] - 
BEGIN OPEN (tb+node); 
v: ARRAY [0..2) OF WORD; 
sonl <- RValue[sonl, 0, unsigned]; 
attrl <- SELECT TypeForm[OperandType[sonl]] FROM 

pointer, arraydesc «> TRUE, 

ENDCASE -> FALSE; 
IF vStack[vI] .rep « none 

THEN ErrorDefs.errortree[mixedRepresentation, sonl]; 
attr2 <- CommonRep[vStack[vI]. rep, unsigned] ff none; VPop[]; 
IF -TreeLiteral[sonl] 
THEN val ^ [subtree[index: node]] 
ELSE 

BEGIN 

v[0] <- TreeLiteral\/alue[sonl]; 

v[l] «- IF attr2 OR CommonRep[v[0] , 1B5] ■ THEN ELSE 177777B; 

pushlittree[LitDefs.FindLitDescriptor[DESCRIPTOR[v]]]; 

pushtree[mwconst , 1]; setinfo[info]; 

val ♦- mlpop[]; f reenode[node]; 

END; 
VPush[0, other]; 
END; 

Loophole: PROCEDURE [node: Treelndex] RETURNS [val: TreeLink] - 
BEGIN OPEN (tb+node); 
type: CSEIndex ■ info; 
rep: Repr « P4Defs .RepForType[type]; 
val <- Exp[sonl, rep]; 
IF son2 ^ empty 

THEN P4Defs.TypeExp[typ0Exp:son2, body:FALSE]; 
IF P4Def s .WordsForType[Op0randType[val ]] ^ P4Def s .WordsForType[type] 

THEN ErrorDef s .errortr00[sizeClash, sonl]; 
val <r IF Tre0Lit0ral[val] 

THEN MakeStructur0dLiteral[TreeLiteral\/alue[val], type] 



Pass4Xb.mesa 2-Sep-78 12:69:69 Page 16 



ELSE ForceType[val . type]; 
sonl *■ empty; f reenode[node]; 
vStack[vI].rep ♦■ rep; RETURN 
END; 

EndPoint: PROCEDURE [node: Treelndex] RETURNS [val : TreeLink] - 
BEGIN OPEN (tb+node); 
type: CSEIndex; 

first: BOOLEAN ■ (name»f irst) ; 
Maxinteger: INTEGER ■ AT toDef s.maxinteger; 
MaxWord: INTEGER ■ AT toDef s .maxword; 
v: WORD; 

vv: ARRAY [0..2) OF WORD; 
P4Defs.TypeExp[typeExp:sonl, body: FALSE]; 
type ♦- UnderType[P4Defs,TypeForTree[sonl]]; 
DO 

WITH (seb+type) SELECT FROM 
basic ■> 
BEGIN 

V ^ SELECT code FROM 

SymDefs.codelNTEGER ■> IF first THEN -MaxInteger-1 ELSE Maxinteger. 

SymDefs.codeCHARACTER »> IF first THEN ELSE AltoDef s .maxcharcode. 

ENDCASE -> IF first THEN ELSE MaxWord; 
GO TO short 
END; 
enumerated -> 
BEGIN 

V i- IF first THEN ELSE Cardinal ity[type]-l; GO TO short 
END; 

relative -> type <- UnderType[off setType]; 
subrange -> 
BEGIN 

V ^ IF first THEN origin ELSE origin+range; GO TO short 
END; 

long ■> 
BEGIN 

vv <- IF first THEN [0, -MaxInteger-1] ELSE [MaxWord, Maxinteger]; 
GO TO long 
END; 
ENDCASE -> ERROR; 
REPEAT 

short ■> val ^ MakeTreeLiteral[v]; 
long -> 
BEGIN 

pushlittree[LitDefs.FindLitDescriptor[DESCRIPTOR[vv]].]; 
pushtree[mwconst, 1]; setinfo[type] ; val ♦-mlpop[]; 
END; 
ENDLOOP; 
freenode[node]; VPush[0, P4Def s .Rep ForType[ type]]; RETURN 
END; 

AdjustBias: PUBLIC PROCEDURE [t: TreeLink. delta: INTEGER] RETURNS [TreeLink] - 
BEGIN 

op: NodeName; 
type: CSEIndex; 

IF t ■' empty THEN passPtr. imp! icitBias ♦- passPtr. impl icitBias + delta; 
IF delta - THEN RETURN [t]; 
type ^ OperandType[t]; 
IF TreeLiteral[t] 

THEN RETURN [MakeStructuredLi teral [TreeLi teral Val ue[t]-del ta, type]]; 
IF delta > 

THEN op ^ minus 

ELSE BEGIN op ♦- plus; delta ^ -delta END; 
mlpush[t]; ml push[MakeTree Literal [delta]]; 
pushtree[op, 2]; setinfo[type] ; setattr[l. FALSE]; 
RETURN [mlpop[]] 
END; 

Rvalue: PUBLIC PROCEDURE [exp: TreeLink, bias: INTEGER, target: Repr] RETURNS [val: TreeLink] 
BEGIN 

d: INTEGER; 

val ^ Exp[exp, target]; d ^ bias - vStack[vI].bias; 
IF d j7 

THEN BEGIN vStack[vI] .bias <- bias; val *- AdjustBias[val , d] END; 
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RETURN 
END; 



END. 



